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LOCTR OBJECT TEXT STMT SCURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0030CC 69BD 1712 DC X"69BD* * 1829+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/C COMMAND, TIMING 
0030CE 0000 1713 CYLND DC X*00008 TEMP SAVE AREA FOR CYLINDER # 1830+* STARTS TO DETERMINE A LOST INTERRUPT. 
0030D0 0000 1714 DC X*00008 * 1831+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
0030D2 0000 1715 FORMT DC X*00008 FROMAT BIT FROM OPERATOR 1832+% WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
0030D4 004C 4716 CYLIN DC X*OQO4C! CYLINDER NUM SELECTED FROM OPERATOR 1833+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
0030D6 0000 1717 HEAD DC F*Q000! HEAD NUM SELECTED FROM OPERATOR 1834+%* 9. CHECK IF AN ERRCR WAS EXPECTED AND IF THERE WAS RETORN. 
0030D8 0001 1718 SECT DC F*0001'* SECTOR # SELECT BY OPERATOR 18 35+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
0030DA 0ODO00 1719 BYCNO DC F'3328!5 BYTE COUNT SELECTED BY OPER 1836+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
0030DC 0000 1720 TABLE DC A (*-*) ADDR OF WRT PAR LIST FOR FORMAT RTNS 1837+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
0030DE 00000000000000000 %4721 DIAGW DC LL boos! DIAGNOSTIC BUFFER 1838+% ISSUED BY THIS SUBROUTINE. 
0O0O30EC 0000 1722 CONST DC X*0000 SECTOR # PLUS ONE FOR N=*x'! 1839+ 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
OOU3Z30EE 0Q000 1723 SBYT DC X "0000 * FULL BYTE COUNT FOR N='"x®8 13d40+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
0030FO OOFF 1724 CDAT DC X"OOFF® CONSTANT "O00" & 'FF® 18414* COUNT IT AND SET UP THE PROEFER ERROR MESSAGE TO BE PRINTED. 
0030F2 0000 1725 cTRO1 DC X*00008 COUNTER 1 1842+* 

O030F4 0000 1726 CTRO2 DC Xx‘ 0000! COUNTER 2 1843+* CALLING SEQUENCE 

0030F6 0000 1727 CTRO3 DC X*0000! COUNTER 3 18444% 

0030F8 0000 1728 CTRO&Y DC X*0000! CCUNTER 4 1845+ THIS ROUTINE HAS THE FOLLOWING ENTRIES: 

0030FA 0000 1729 CTROS DC X*00008 COUNTER 5 1846+4+* 

0030FC 0000 1730 SAVR3 DC X*00008 SAVE AREA 1847#* --> BAL X10 OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
Q0030FE 0000 1731 SAVR5 DC X¥*0000°8 SAVE AREA 1848+* --> BAL XIO1 MOD PARM PRELOADED IN *1omobe 

003100 0000 1732 SIDE DC X*O0000! SICE BEING TESTED 1849+* ~-=-> BAL X1LOCS, R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
003102 0000 1733 TRK DC X*0000! CURRENT CYLINDER NUMBER 1850+* --> BAL XIOCS-4,R6 AUTO CS STATUS CEOELOuiNG OTHER X10 

03104 0000 1734 WIDAT DC X*00008 WORK AREA 1851+* 3 AND DOES NOT POST INTERRUPT STATUS) 

003106 4c00 1735 SVSIX DC X*4C00? CYLINDER NUMBER 76 1852+* 
1737 COPY T48I0 1853+* RETURN CONTROL 
1738 * 4/15/76 1854+ 
1739 * EXECUTE INPUT & OUTEUT COMMANDS 1855+4* BXS (R6 2) RETURN TO USER NO ERROR 
1740 * TO EXECUTE ALL 1/0 CCMMANDS FROM A COMMON PLACE. 1856+* OR B R6 f * RETURN AND RETRY ON ERROR 
“741 *® EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 1B 5 7+ ee ee IO I i RI BOR BO IOI IOI IR IO II ICR I Kak 
1742 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 003168 Cb25 326C 18594+XIC MVWZ ILIOMOD,R3 SET MOF OF OQ FOR CYCLE STEAL OP 
1443 : SUPVR CALL. 00316C 500A Le J XI01 CS I/0'S ARE NOT RETRIED 
a + 
1745 * THIS SUBROUTINE WILL CHECK FOR THE FCLLOWING: OO0316E 4CAA 1862+ TBIR R4,CE RESET CS STATUS INTER ERROR INDICAT. 
1746 * _ 003170 4c68 __ 1863+ TBTS R4,CS SET "CYCLE STEAL STATUS* IN PROGRESS 
1747 * 1. LOST INTERRUPTS BY TIMING OUT A CCUNTING LOOP 003172 4020 326A 306C 18644XIOCS MVA SDEB ODCB SET UP CONTROL BLOCK FOR SVC CALL 
1748 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 003178 4020 326C OOOF 1865+ MVWI X *O0OOF*, TOMOD SET CYCLE STEAL MODIFIER 
1749 * 3. LOOP ON ERROR, THE CALL MUST HAVE A "DC" STATEMENT AFTER QO0317E 4C28 1866+ TBT of) CS) IS CS IN PROGRESS, ERROR CONDITION 
1750 * » THE CALL WITH THE ADDRESS OF THE RETRY STATEMENT 003180 1213 1867+ JON 102 * YES, BYPASS SAVING I/O ADRS 
1751 * 4. CYCLE STEAL IN PROGRESS WITH AN ERROR 003182 6EOD 2CF6 1868+XIO1 MVW R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
1752 * 5. SOMETHING FLSE 003186 4324 2D00 1869+ MVA cCBUE, R3 SET UP TO ADRS TO MOVE DCB TABLE 
1753 * 00318A 608 326A 1870+ MVW IODCB, R5 * AND THE FROM ADRS, ALONG WITH 
1754 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 0O0318E OF10 1871+ MVBI 16,R7 * THE NUMBER OF MOVES 
1755 * 003190 2D64 1872+ UVFN SBD) $83) MOVE 1 STATUS WORD AND ADJUST 
1756 * 1 BAL $SEEK, R6 SEEK 003192 OBFF 1873+ MVBI 55,R CLEAR CYCLE STATUS BUFFER 
1757 * ie 003194 4524 2D10 1874+ MVA CSBOF, R5 * TO ALL ONES 
1758 * 2 BAL SRECL, R6 RECALIBRATE 003198 QF10 1875+ MVBI 16,R7 * 
1759 * * 00319A 2BAC 1876+ FFN R3 4B2) * 
1760 * 3 BAL $RDID, R6 READ SECTOR ID 00319C 4020 2CF2 0708 1877+ MVWI x*6708 ,?LOIN OVERLAY OLD CONDITION CODES 
1761 * Gs 0031A2 CB25 2CF4 1878+ MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
1762 * 4 BAL SRD, R6 READ 1879+* 
1763 * ws 0031A6 4CAl1 1880+ TBIR R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
1764 * 5 BAL SRDVY,R6 READ VERIFY 0031A8 4CA3 18814+#XIO2 MTBTR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
1765 * 2 Q0314A 4724 3266 1882+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
1766 * 6 BAL $WRT, RG WRITE 0O031AE 4CA6 1883+ TBTIR RG, $LE) RESET LEVEL ERROR INDICATOR 
1767 * 0031B0 4cC62 1884+ TBTS R4, XT) SET EXPECTED INTR CONTROL BIT 
1768 : 7 BAL $SFMT,R6 FORMAT 0031B2 600A 138 oF. SVC TART CALL SUPVR FOR I/O COMMAND 
1770 * 8 BAL XIOCS.R6 CYCLE STEAL STATUSB 0031B4 4CA7 1887+ TBTR R4,NI IS AN INTR EXPECTED 
1771 * a - 0031B6 6ACO 0002 1888+ BN {Res 3y? * NO, RETURN TO USER 
1772 * 9 BAL S$DIAG,RG6 READ DIAGNOSTICS 1889+ 
ae ee 10208: THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
003108 4020 326A 305Cc 1775 $SEEK MVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 0031BA 0QDO00 1892+ MVBI ‘oo! SET UP WCRK REG FOR "LOST INTR® 
00310E 502C 1776 J XIO 0031BC 4CA3 1893+XI08 TBTR (Rud in HAS INTERRUPT BEEN RECEIVED 
4777 * 0031BE 1238 1894+ JON * YES, CHECK IF ALL WAS SATISFACTORY 
003110 4020 326A 302c 1778 $RECL MVA CLDCB,IODCB SEf UP BLOCK FOR SVC CALL 0031CO0 6002 1895+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
003116 5028 1779 J XIO ; 1896+* SUPVR WILL RETURN HERE. 
} 1780 * G031C2 7DA1 0001 1897+ AWL 1,R5 ADVANCE TIME OUT COUNT 
003118 4020 326A 304C 1781 S$RDID MVA RSDCB,IODCB SET UP BLOCK FOR SVC CALL 0031C6 18FA 1898+ JNZ X108 BCH IF TIME OUT NOT REACHED 
00311E 4020 2CF8 9999 1782 MVWI X'999$" ScCTID INVALIDATE SECTOR ID BUFFER AREA 0031C8 4C61 1899+ TBTS R4, ER) SET ON ERROR CONTROL BIT 
003124 4020 2CFA 9999 1783 MVWI X*9999* SCTIDt2 * 0031CA 68D2 0000 1900+ B R6) * 'NO INTERRUPT! 
00312A SQVE 1784 J XIO 19 O De KH HR He He aK a Ke ke a a ok 2 ea 2 oe 2 2 oe fe a a ae ok 2c ae ake ak a ae ak of akc ok ake ak aie ak ok ak KK KK KHER EKEKO GPF ERT G6 ** 
1785 * 1903+ 
00312C OBFF 1786 $RD MVBI 255,R3 INIT READ BUFFER TO FF*S 1904+#* SUBROUTINE 
00312E 6D08 30AA 1787 MVW BDDC Bs 14,5 * 1905+% 
003132 4724 0400 1788 MVWI x'0G00!, 87 * 1906+* I/O EXECUTE ERROR HANDLING ROUTINE 
003136 2BAC 1789 FFN R3 3)" * 1907+* 
003138 4020 326A 309C 1790 $RDS MVA RDHDCE,IODCB SET UP BLOCK FOR SVC CALL 1908+* EURPCSE 
00313E 5014 1791 J XIO 1909+4* 
; 1792 * 19 10+% THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
003140 4020 326A 308C 1793 $RDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1911+* PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE 
003146 5010 1794 7 J XIO 19 12+% SUPERVISOR AND IT WAS NOT ACCEPTED 
+ 
003148 4020 326A 307C 1796 $WRI MVA WRDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 1914+* CALLING SEQUENCE 
OO0314E 500C 1797 J XIO 19 15+%* 
1798 * 19 16+%* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 
003150 4020 326A 303C 1799 $FMT MVA FRDCE, 1OLCB SET UP CONTROL BLOCK FOR SVC CALL 1917+* 
003156 5008 1800 J XIO 1918+* RETURN CONTROL 
003158 4020 326A 301C 1801 $DIAG MVA DGDCB,1IODCB SET UP CONTROL BLOCK FOR SVC CALL 19 19 +% 
903128 4020 326C 000D 1892 MVWI x*0008*, 1cHoD MODIFIER FOR DIAG OP eee B (R6) * RETURN TO USERS ERROR HANDLER 
003166 5601 1804 CEOP2 ne tea DUMMY KETURN TO USER Mg es en ee eae ee ee Tee Cee ee er eT SY ey 
1805 * - +* 
1806 EQIT 19244+* CC O= DEVICE NOT ATTACHED 
1807+* weaned fre ee re EEE EE LTE CE EE EET LTE Te POT Ry rT 1925+* FOR 1= DEVICE BUSY 
1808+* 1926+* I/70 2= DEVICE BUSY AFTER RESET 
1809+* SUB-ROUTINE 1927+ 3= CCMMAND REJECT 
18 10+* 1928+ 4{= INTERVENTION REQUIREL 
1811+* EXECUTE INPUT AND OUTPUT COMMANDS 1929 +* 5= INTERFACE DATA CHECK 
1812+* 1930+ 6= CONTROLLER BUSY 
Perea PURPOSE eine 7= I7O0 CCMMAND EXCEPTED 
+ 
1815+* TO EXECUTE ALL I/O CCMMANDS FROM A CCMMON PLACE. OO31CE 7Q6E 1933#XIOER DC X*7JO6E® COPY STATUS ANY LEVEL INTO R3 
1816+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 0031DQ0 336A 1934+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
leiaes 0031D6 6ab2 6000 193@s ena eee RETURN TO USER ERROR HANDLER 
+ - SAVE E 
1819 +4* THE 176 CoMMnnee THAT PCINTS TO THE INSTRUCTION THAT STARTED 1630) CAR OEE CAESEUE CS be eUSREADERSUEREEE OE LL uceuleeeeee cee uneeer ee 1bApRTOes 
1820+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 1939+* IL 
1821+% ISSUED BY THIS SUBROUTINE eae rt 
1822+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 1941+* IL 
1823+* START CYCLE STATUS WAS ISSUED BY'THIS SUBROUTINE. 1942+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL® IL 
1824+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 1943+* IL 
1825+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 1944+* PUREOSE IL 
1826+* MYSTERY INTERRUPT fith iS coueor BIT IS SET. 1945+* IL 
1827+* 5. MOVES THE ADDRESS HE I/O CONTROL BLOCK IN R7, SET THE 1946+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
1828+* EXPECTED INTERRUPT CounHOL. BIT AND ISSUE THE *SVC  START®. 1947+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCLR OBJECT TEXT SIMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1948+ EXPECTED CODE. IL 0U3260C 0000 2066+IQMOD DC A (*-* MODIFIER 
1949 4% IL 003z26E 0000 2067+ DC A (*-* ADRS OF LAST SVC CALL 
ee pe CALLING SEQUENCE IL 003270 0000 ceoee DC A (*-* SECOND WORD OF LAST IDCB 
+x IL 
La es SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL aa aGe INTERRUPT CONTROL BLOCK FOR I/C COMMANDS 
+ 
1954+* RETURN CONTROL ae Ou3272 19D0 2O072+INTBL DC A NTO) ADRS OF DEVICE ADRS 
1955%¢ 903548 Hk agra Bc A EAT TTF eRUe Be age apn sh OES 
1956+* SVC EXIT RETURN TO USER VIA SUPV Li 6 2 . P 
1957+%* A 0U3278 0003 2075+INTCC DC X*0003 INTERRUPT CODE EXPECT 
195 84 ici io oa ii gi dc digi iciaikciek dak tok iocick TT ia eas ss See EE Ce Sete re eeetet TTL Teeter ree cet tert serers Tete Se 
1959+* IL + 
1960+* CC O= CONTROLLER END ISB = ADD STATUS LL 2079+* SUBROUTINE 
1961+* FOR 1= PROGRAM CONTROL INTERRUPT BITS = COMD REJECT IL 2080+* 
1962+* INTR 2= EXCEPTION INTERRUPT FOR = JNCOR LENGTH IL 2081+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
1963+ 3= DEVICE END INTERRUPT {NTR = DCB SPEC CK IL 2082+* 
1964+* 4= ATTENTION INTERRUP = STG DATA CK IL 2083+#* PURPOSE 
1965+* 5= AITENTION / PROGRAM CNTL INTR 5= INV STG ADKS IL 2084+4%* 
1966+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 2085+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
1967+* 7= ATTENTION “ DEVICE ENC INTR 7= I-FACE DATA IL 2086+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
1968+* IL 2087+* TO INTERRUPT. 
0031DA 706E 19694+INTER DC X'706E* COPY STATUS ANY LEVEL INTO R3 IL 2088+% 
0031DC 336A 1970+ SRL 13,k3 POSITION INDICATORS IN R3 IL 20894+* CALLING SEQUENCE 
0031DE 4424 ZCEA 1971+ MVA OPTN1, Ku SET UP BASE ADRS IL 2090+* 
G031E2 4C28 1972+ TB 4R4 c$) IS CS IN PROGRESS IL 209 14+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
0031E4 1006 1973+ JOFF ints * NO IL 299 2+% 
0031E6 4C6A 1974¢ TBTS (R4 CED TURN ON CYCLE STEAL INTER ERROR IL 20934+* --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
0031E8 6FOD 2D1E 1975+ MVW R7,CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 IL 2094+* --> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
0031EC C328 2D1F 1976+ MVB R3,CSTL8+1 * AND THE COND CODE IL 2095+* 
0031FO 500A 1977+ J INTRI IL 2096+* RETURN CONTROL 
OO031F2 4C24 1978¢INTLS TBT (R4, XE) TEST EXPECTED ATTEN / ERROR IND IL 2097+%* 
0031F4 1002 1979+ JOFF INTET BCH IF NOT EXPECTED IL 2098+% BXS (Re 2) RETURN TO USER VIA REG 6 IF OKAY 
0031F6 F304 1980+ CBI 4,R3 IS THIS AN "ATTENTION! INTR IL 2099#* OR B R6f * IF THE DEVICE COULD NOT BE CONNECTED 
0031F8 1006 1981+ JE INTR1 * YES, BCH TO END INTR SEQUENCE IL 2100+* 
OO31FA 4Ccé61 1982t*INIET TBTS (R4, ER) SET ERROR ON 1/o COMMAND CNTL BIT IL LUO Ve RR He Fe Re 2 2 3 2 i a 2 2 A a 2 2 2 OK ae 2 ic 2c a ae 2 Se 2 a ee ae de ek ie ae ae 2c ie fe 2c 2 ke ake 2k 2c 2c oe ok fe ak ok a aK ak ok ok 
0031FC 5004 1983+ J INTRI IL 00327A OF06 2102+*$CONC MVBI Ge RY NUMBER OF BYTE TO CLEAR 
1984+* THE ERROR INTERRUPT USES THE SAME IL Q00327C 0800 2103+ MVBI * AND THE DATA TO USE 
1985+ ENDING SEQUENCE AS THE NORMAL INTR IL VO3Z7E 4524 2CF8 2104+ MVA Deva R5 * ALONG WITH THE ADRS TO USE 
1987 + Re RR Oo ik oO oi a ao igo gokoictotok aoe 7A PR76IL 003282 2BaC 2105+ FFN (E>) * 
1988+% IL v03284 CB25 2ZCEE 2106+ MVWZ Bee 3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
1989+* SOUBROUTINE IL 003288 4724 2DzC 2107+ MVA SVCAL,R7 SET UP TO REQUEST DCP SUPR DISK 
1990+* IL 00328C 6016 2108+ SVC REQSD- * 
199 14% OKAY INTERRUPT RUNS ON INTERRUPT LEVEL *S$INTL!* IL Q00328n OFFF 2199+ MVBI -1,87 SET UP DELAY FOR IBIS 
1992+% IL 003290 BFFF _ 2110+ JCT * RT * AND DECREMENT IT DOWN 
1993+* EURPOSE IL 003292 4724 3272 2111+ MVA  INTBL,R7 SET R7 TO CONTROL BLOCK AND 
1994+* TL 003296 06014 2112+ SVC CICB * CONNECT If TO THIS DEVICE 
1390s TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 003298 6ADO 0000 outa ae BN (R6) * ERROR RETURN TO USER 
IL ; 
1997+* CALLING SEQUENCE IL YVO3Z9C 8828 2D26 326A 2115+SCONP MVW SINIL, LODCB PUT IN LEVEL & INTR PARAMETER 
1998+ TL 003242 4724 326 2116+ MVA_ ILOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
1999+ SUPERVISOR WILL FNTER HERE IF INTR CC IS AS REQUESTED IL VO32ZA6 4020 2CF2 0708 2117+ MVWL K0708',$101N INITIALIZE CONDITION CODE STORAGE 
2000+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL VO3ZZAC CB25 2CF4 2118+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
2001+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL UV032B0 6EOD 2CF6 2119+ MVW R6, LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
2002+* COMMQN SECTION IS HANDLED HERE. IL Q032E4 600C 2120+ SVC PREP * AND CALL ON SUPVR 
2003+* IL 003ZBo 5601 2121+ BXS (R6 2) RETURN TO USER 
2004+* RETURN CONTROL IL ees FOR tO kk a deat kak take a £3 WK ee ee kK 2k 2 a a ke 2 ak ak ec ak ce 2 ok ok ok ake kk kok kek ok kkeakcok ke Q6A PRTG ** 
2005+* IL 2124+% 
Z006+% SVC EXIT RETURN TO USER VIA SUPVR IL Soe SUBROUTINE 
SOOBE EERE REE RERHEMER KR GRERRAGRREMKEREEER EE RHEE DEERE ESSEENEE E+E ERERELE 2127+* DISCONNECT THE INTERRUPT CONTROL BLCCK AND LOG ERRORS 
0031FE 706E 2009+INTOK DC X"706E? COPY STATUS ANY LEVEL INTO R3 iL 2128+* 
003200 336A | 2010+ SRL 13,8 POSITION INDICATORS IN R3 IL 2129+* PURPOSE 
003202 4424 2CEA 2011+ MVA OPTN1,K4 SET UP BASE ADRS IL 2130+* 
003206 4C63 2012+INTR1 TBTS R4,IN SET INTERRUPT RECEIVED IL 2131+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003208 4C28 2013+ TBT R4,CS IS 'CS IN PROGRESS! ON IL 2132+* SET THE "NO GOOD* CONTROL BIT, THEN LOG THE DATA THAT HAS 
003Z0A 1204 2014+ JON NTH2 * YES, BCH AROUND UPDATE IL 2133+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
00320C C328 2CF3 2015+ MVB R3,$1CIN+1 SAVE INTERRUPTING CC CODE IL 2134+4* 
003210 6FOD 2CF4 2016+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS IL 2135+#* CALLING SEQUENCE 
003214 2917+INTR2 EQU * IL 2136+* 
2018+* CPCL RS5 CURRENT LEVEL COPIED BY DCP IL 2137+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
003214 3521 2019+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 2138+* 
003216 0501 2020+ ABI 1,R5 * IN *I* BIT IL 2139+* --> B SERRS SET "'NG* BIT ANCL CONVERT DATA TO LOG 
003218 CD24 2D26 2021+ CW $INTL, RS IS THIS THE CORRECT INTR LEVEL reo 2140+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
Q0321C 1002 2022+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 21414* 
00321E 4C66 2023+ TBIS R4, $LE) SET INTR LEVEL FRROR CONTROL BIT IL 2142+* RETURN CONTROL 
003220 4C6é1 2024+ TBTS (R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 2143+% 
003222 4CA2 2025+INTR3 TBTK (R4,XI WAS INTERRUPT EXPECTED IL 2144+% B TURTN* RETURN TO MDI 
003224 1204 2026+ JON tInTkx * YES, EXIT OFF THIS INTR LEVEL IL 2145+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
003226 4c60 2027+ TBGS (Ra MI) * NO, SET MYSTERY INTR CONTROL BIT IL 2146+* 
003z28 F304 2028+ CBI R3 arTEfT ION INTERRUPT? IL 214 7 +34 Oi i io Gi toicioiai a ao kok i acai ia a I IG aR GI ICIOt a ica ak 
00322A 1001 2029+ JE ThirRx YE iL 0032B8 4020 1818 8000 21484+$ERRS MVWI X*8000* , TUSTATUS SET ON "NO GOOD" STATUS BIT 
00322C 4C6C 2030+ TBTS (R4,NG) ERROR UNEXPECTED INTERRUPT IL OO32ZBE 4724 342E 2149+ MVA HEBLK, R4 GET ADRS OF CONTROL BLOCK 
00322E 6006 2031+INTRX SVC EXIT XIT THIS LEVEL VIA SUPVR TO PGM _ IL 0032C2 601A 2150+ SVC gules CONVERT HEX TO EBC VIS DCP 
2033 + KE Ek dak took tok kaakaicak ak took ek tok kk 0 3F EB 76 ** 0032C4 0D03 2151+$PRNT MVBI 
20 34+ 0032C6 4324 181A 2152+ MVA TONCRK R3 SET UP BUFFER STORAGE 
2035+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT OO32CA O6BOD 3426 2153+ MVW =-R3,BUFET 
2036+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 0032CE 4124 3356 2154+ MVA LINE1,81 
2037+% RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 0032D2 OFO4 2155+ MVBI 4,R7 
2038+* 0032D4 OEO08 2156+ MVBI 8,R6 
2039+4% 0032D6 2B24 2157+#MVBUF MVFN (£3). (R1) 
003230 4CA4 : 2040+XIOCK TBTR R4, XE) WAS AN ERROR EXPECTED 0032D8 OQOFOY4 2158+ MVBI GR 
003232 6ACO 0002 2041+ BN R6, ret * YES, EXIT THIS ROUTINE OO03ZDA OA4O 2159+ MVBI X*4Q*,R2 
003236 4CA8 2042+ TBTR Rue cS) WAS Alito CS IN PROGRESS 0032DE C258 2160+ MVB R2 geiye 
003238 1006 2043+ JOFF * NO, CONTINUE CHECKING Q032DE BEFB 2161+ Jct MVBUF, 
00323A 4C2A 2044+ TBT (iu, CE) IS CS IN AN ERR CONDITION QO32E0 QEOS 2162+ MVBI 8,R6 
00323C 1002 2045+ JOFF XI0CO * NO, BCH 0032E2 7921 00zC 2463+ AWI «644, R1 
00323E 68D2 0000 2046+ B R6) * Cs ERROR 0032E6 BDF7 2164+ ICT MVBUF,RS 
003242 4c69 2047+XIOCO TBTS (R4,CSA) TURN ON CS STATS AVAIL FLAG 0O032E8 4020 1802 FIFO 2165+ MVWI PIDMS610,PIDe2 
003244 5601 2048+ BXS R6,2 GO TO USER OO3ZEE 4020 1968 342C 2166+ MVA FAKETU,@DCADD1 
003246 4C21 2049+XIOCV TBT R4, ER) WAS ERROR INTR CONTROL BIT ON VO32ZF4 4020 19BA 3428 2167+ MVA  DC2PT,ODCADD2 
003248 100B 2050+ JOFF Toeéx * NO, EXIT THIS ROUTINE OO32FA 402C 19C4 0080 2168+ OWL BITQO80 SUPSTAT 
2051+* 003300 4324 2CF0 2169+ MVA $TUID, RS SET UP BUFFER STORAGE 
003z24A C520 2CF3 2052+ MVB SIOIN¢1,R5 GET LAST INTR CC COLE 003304 o6F13 18BA 2170+ BAL TUMSGNTR*, R7 GC TO MESSAGE WRITER 
00324E F502 2053+ CbI 2,R5 IS THIS CC=2 2171+* 
003250 68D1 0000 2054+ BNE fe) * * NO, BCH TC ERROR HANDLER 903308 2172+$CONX EQU * 
003254 C520 2CF4 20554+XIQCQ MVB ISB,RS5 GET fast ISB DATA BYTE AND IF CS 003308 8028 2CF9 2D2F 2173+ MVE SCTID+t1,SVCAL+3 SETUP CURRENT CYLINDER NUM 
003258 6A00 316E 2056+ BN x10cS$-4q * AVAILABLE, GO AND GET IT V0330E 4724 2D2C 2174+ MVA SVCAL, R17 ADDR OF RELEASE PARM LIST 
00325C 68D2 000Q 2037+ B fee ERROR 003312 6017 2175+ SVC RELSD RELEASE CONTROL 
003260 CB25 2CLE 2058+XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 003314 C720 19D0 2176+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
003264 5601 2059+ BXS (R6, 2§ RETURN TO USER VIA REG 6 003318 6013 2177+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
2060+* 00331a 6812 2D28 2178+ B TURTN* RETURN TO MDI SUPERVISOR 
2061+* 1/0 PARAMETER LIST 2179+% 
; 2062+* 00331E 0007 2180#BEGIN DC A (0007 NUMBER CF LINES TO PRINT 
003266 19D0 2063+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 003320 0008 2181+ DC A (0008 LINE LENGTH = 8 CHAR 
003268 31CE 2064+ c A (XIGER) ERROR ROUTINE ADRS V03322 SCSC4OC1C2ZDOD9E3 2182+ DC Ct*x* ABCKT® 
003z6A 0000 2065+*10DCB DC A (*-*) DCB ADRS OR LEVEL & INTR 00332A 0028 2183+ DC A (0040) LINE LENGTH = 40 CHAR 
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14620 --- DISKETTE UNIT DEVICE P/N=1635105 EC=578757 PAGE 11 14820 --- DISKETTE UNIT DEVICE P/N=1635105 EC=578757 PAGE 11A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUIES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
1600 DGDCB ADDRESS. HEX LOCATION(0000301C) IN CSECT(I4820 ) LENGTH(2) 2186 LiNE1 ADDRESS. HEX LCCATION (00003356) IN CSECT(I4820 ) LENGTH(40) 
1721 DIAGW ADDRESS. HEX LOCATION(000030DE) IN CSECT (14820 } LENGTH (2) 1016 LSTIO ADDRESS. HEX LOCATION(OQQOZCF6) IN CSECT(I4820 ) LENGTH(2) 
1395 1396 1397 1398 1399 1399 1400 1403 1403 1868 2119 
1404 1407 1409 1413 1607 993 MI ABSOLUTE. HEX VALUE (00000020) 
67 DUMMY ABSOLUTE. HEX VALUE (00000000) as 2027 
510 554 703 . 733 745 ° 780 #798 2157 MVBUF ADDRESS. HEX LCCATION(000032D6) IN CSECT(I4820 ) LENGTH(2) 
781 ENTPT ADDRESS. HEX LCCATION(00002794) IN CSECT(I4820 ) LENGTH(1) 2161 164 
198 59 MX ABSOLUTE. HEX VALUE (00000204) 
47 EQ ABSOLUTE. HEX VALUE(00000000) 542 
528 68 1005 NG ABSOLUTE. HEX VALUE(0000002C) 
994 ER ABSOLUTE. HEX VALGE (00009021) 2030 
1227 124 1308 6 1393 1467 1475 1482 1559 1000 NI ABSOLUTE. HEX VALUE (00000027) 
1568 157 1880 1899 1982 2024 2049 1887 
1069 EXIT Be HEX VALUE (00000006) 519 NO0001 SURES HEX LOCATION (00002608) IN CSECT (14820 ) LENGTH (2) 
2199 FAKETU jADDRESS. HEX LOCATION (0000342C) IN CSECT(I4820 ) LENGTH(2) 922 NO0002 ADDERS: HEX LOCATION(0000260C) IN CSECT(I4820 ) LENGTH(2) 
1617 FRDCB {ADBRESS. HEX LOCATION(0000303C) IN CSECT(I4820 ) LENGTH(2) 525 N00003 ADDRESS. HEX LOCATTON(00002610) IN CSECT(I4820 ) LENGTH(2) 
850 F00006 ADDRESS. HEX LOCATION (00002918) IN CSECT(I4820 ) LENGTH(1) 537 NO0004 ADDRESS. HEX LOCATION(00002622) IN CSECT(I4820 ) LENGTH(2)_ 
806 F00038 ADDRESS. HEX LCCATION(000027A2) IN CSECT(I4820 ) LENGTH(1) 539 NO0005 ADDRESS. HEX LOCATION(00002624) IN CSECT(I4820 ) LENGTH(2) 
814 F00067 ADDRESS. HEX LOCATION(000027EA) IN CSECT(I4820 ) LENGTH(1) 551 NO0006 ADDRESS. HEX LOCATION (00002636) IN CSECT(I4820 ) LENGTH(2) 
818 F00072 ADDRESS. HEX LOCATION(000027FC) IN CSECT(I4820 ) LENGTH(1) 560 NOOOO7 ADDRESS. HEX LOCATION(0000264A) IN CSECT(14820 ) LENGTH(2) 
822 F00081 ADDRESS. HEX LOCATION(O000280E) IN CSECT (14820 ) LENGTH (1) 566 NO0008 ADDED Sagnee LOCATION (00002656) IN CSECT (14820 ) LENGTH (2) 
826 F00092 ADDRESS. HEX LOCATION(00002830) IN CSECT(I4820 ) LENGTH(1) 578 NO0009 ADDRESS. HEX LOCATION {00002668) IN CSECT(I4820 ) LENGTH (2) 
830 F00115 ADDRESS. HEX LOCATION (00002842) iN CSECT(I4820 ) LENGTH(1) 5 84 N00010 eae Fa ae LOCATION(00002674) IN CSECT(I4820 ) LENGTH (2) 
8 36 F00120 ADDRESS. HEX LCCATION(0000288A) IN CSECT(I4820 ) LENGTH(1) 587 NOGOQ11 ADDRESS. HEX LOCATION (00002678) IN CSECT(I4820 ) LENGTH(2) 
842 FO00145 ADDRESS. HEX LOCATION(000028D8) IN CSECT(1482C ) LENGTH(1) 590 NOOO 12 Renee LOCATION (0Q000267C) IN CSECT(I4820 ) LENGTH(2) 
846 F00148 ADDRESS. HEX LCCATION(OOQOOZ8FE) IN CSECT(I4820 ) LENGTH(1) 593 N00013 Cs ie HEX LOCATiON(00002680) IN CSECT(I4820 ) LENGTH (2) 
856 F00 164 ADDRESS. HEX LOCATION(00002956) IN CSECT(I4820 ) LENGTH(1) 396 NOO014 Rp Pee aa tee LOCATION (00002684) IN CSECT(I4820 ) LENGTH{(2) 
864 F00176 ADDRESS. HEX LOCATION (00002998) IN CSECT(I4820 ) LENGTH(1) 599 N00015 ADDRESS. HEX LOCATION (00002688) IN CSECT(14820 ) LENGTH(2) 
870 F00186 ADDRESS. HEX LCCATION(000029EA) IN CSECT(I4820 ) LENGTH(1) 602 NO00016 ADDRESS. HEX LCCATION(0000268C) IN CSECT(I14820 ) LENGTH(2) 
876 F00198 ADDRESS. HEX LOCATION(O0002A3C) IN CSECT(I4820 ) LENGTH(1) 005 NO0017 ADDRESS. HEX LOCATION (00002690) IN CSECT(I4820 ) LENGTH(2) 
880 F00205 ADDRESS. HEX LOCATION (00002A56) IN CSECT(I4820 ) LENGTH(1) 6U8 NO0018 ADDRESS» HEX LCCATION(00062694) IN CSECT(I4820 ) LENGTH(2) 
&84 F00213 ADDRESS. HEX LCCATION(00002A76) IN CSECT(I4820 ) LENGTH(1) 611 N00019 ADDRESS. HEX LOCATION(00002698) IN CSECT(I4820 ) LENGTH(2) 
890 F00225 ADDRESS. HEX LOCATION(QCOQ2AAE) IN CSECT(I4820 ) LENGTH(1) 614 N00020 ADDRESS. HEX LOCAT10ON(0000269C) IN CSECT(I4820 ) LENGTH(2) 
894 F00233 ADURESS. HEX LCCATION(QQOO2ACE) IN CSECT(I4820 ) LENGTH{1) 617 NO0021 ADDRESS. HEX LOCATION(000026A0) IN CSECT(I4820 ) LENGTH (2) 
898 F00243 ADDRESS. HEX LOCATION(QQO02AFO) IN CSECT(I4¥820 ) LENGTH(1) 620 NOO022 ADDRESS. HEX LOCATION(000026A4) IN CSECT(I4820 ) LENGTH (2) 
902 F00247 ADDRESS. HEX LOCATION(O0002AF6) IN CSECT(I4820 ) LENGTH(1) 623 NO00623 ADDRESS, HEX LOCATION(000026A8) IN CSECT(I4820 ) LENGTH(2) 
z 
916 F00285 ADDRESS. HEX LOCATION(00002592) IN CSECT(I4820 ) LENGTH(1) 626 NO0024 ADDRESS. HEX LCCATION(000026AC) IN CSECT(I4820 ) LENGTH({2) 
920 F00288 ADDRESS. HEX LOCATION (00002BB2) IN CSECT(I4820 ) LENGTH(1) 629 N00025 ADDRESS, | HEX LOCATION (000026B0) IN CSECT(I4820 ), LENGTH (2) 
924 F00291 ADDRESS. HEX LOCATION(O0002BD4) IN CSECT(1I4820 ) LENGTH {1) 632 NO0026 Sop ee LOCATION (000026B4) IN CSECT(I4820 ) LENGTH(2) 
930 F00322 ADDRESS. HEX LCCATION(00002C0OA) IN CSECT(I4820 ) LENGTH(1) 6 35 NO0027 ADDRESS. HEX LCCATION({000026B8) IN CSECT(I4820 ) LENGTH (2) 
934 F00325 ADDRESS. HEX LOCATION (00002C28) IN CSECT(I4820 ) LENGTH(1) 638 NO 0028 BpDEESS: HEX LOCATION(O000Z6BC) IN CSECT(I4820 ) LENGTH (2) 
938 F00328 ADDRESS. HEX LOCATION (G0002C46) IN CSECT(I4820 ) LENGTH(1) 641 N00029 ADDRESS « HEX LCCATION(000026C0) IN CSECT(I4820 ) LENGTH(2) 
942 F00339 ADDRESS. HEX LOCATION(00002C74) IN CSECT(I4820 ) LENGTH(1) 644 N00030 ADDRESS. HEX LOCATION (000026C4) IN CSECT(I4820 ) LENGTH(2) 
946 F00346 ADDRESS. HEX LOCATION(00002C94) IN CSECT(I4820 ) LENGTH(1) 647 N00031 ADDRESS. HEX LCCATION(000026C8) IN CSECT(I4820 ) LENGTH (2) 
950 F00350 ADDRESS. HEX LOCAT1ON(00002CA2) IN CSECT(I4820 ) LENGTH(1) 050 N00032 ADDRESS, HEX LOCATION(000026CC) IN CSECT(I4820 ) LENGTH(2) 
2205 HEBLK oA PDRESS. HEX LOCATION (0000342E) IN CSECT(I14820 ) LENGTH(2) 653 N00033 Te ala HEX LCCATION(000026D0) IN CSECT(I4820 ) LENGTH (2) 
1089 HTOE j ABSOLUTE. HEX VALUE (0000001A) 656 NO0034 ADDRESS, EX LOCATION (000026D4) IN CSECT(I4820 ) LENGTH(2) 
1065 IDLE ABSOLUTE. HEX VALUE (00000002) 659 NO0035 ADDRESS. HEX LOCATION (000026D8) IN CSECT(I4820 ) LENGTH (2) 
996 IN ABSOLUTE. HEX VALUE (00000023) 662 N00036 ADDRESS» HEX LOCATION (000026DC) IN CSECT(I4820 ) LENGTH(2) 
2072 INTBL j ADDRESS. HEX LCCATION(00003272) IN CSECT(I4820 ) LENGTH(2) 665 N00037 oe ea HEX LOCATION (00002650) IN CSECT(I4820 ) LENGTH(2) 
1569 INTER > ADDRESS. HEX LOCATION(0Q0031DA) IN CSECT(I4820 ) LENGTH(2) 068 N00038 fone HEX LCCATION(O00026E4) IN CSECT(I4820 ) LENGTH (2) 
1978 INTES ARBRESS. HEX LOCATION(000031F2) IN CSECT(I14820 ) LENGTH(2) 671 NO00039 Ab DRESS: HEX LOCATION (O00026E8) IN CSECT(I4820 ) LENGTH (2) 
1982 INTET ADDRESS. HEX LOCATION(000031FA) IN CSECT (14820 ) LENGTH (2) 674 NO0040 Looe nee LOCATION (QO00Z6EC) IN CSECT(I4820 ) LENGTH(2) 
2009 INTOK ADDRESS. HEX LOCATION(000031FE) IN CSECT(I4820 ) LENGTH(2) 677 NOO041 ADDRESS. HEX LCCAT1ON(000026F0) IN CSECT(I4820 ) LENGTH(2) 
2031 INTRX ADDRESS. HEX LOCATION(0000322E) IN CSECT(I4820 ) LENGTH(2) 643 NOO04z ADDRESS, HEX LOCATION (O00026TC) IN CSECT(I4820 ) LENGTH (2) 
2012 INTR1 jABDRESS. HEX LOCATION (0000 3206) IN CSECT(I4820 ) LENGTH(2) 6 86 NO0043 ADDRESS. HEX LOCATION (00002700) IN CSECT(I4820 ) LENGTH(2) 
2017 INTR2 ADDRESS- HEX LCCATION(00003214) IN CSECT(I4820 ) LENGTH(1) 698 NOOO44 ADDRESS. HEX LCCATION(00002712) IN CSECT(I4820 ) LENGTH(2) 
2025 INTR3 ADDRESS. HEX LOCATION(00003222) IN CSECT(I4820 ) LENGTH(2) 700 NOOO45 ADDRESS» HEX LOCATION (00002714) IN CSECT(I4820 ) LENGTH (2) 
2063 TOBLK ADDRESS. HEX LCCATION(00003266) IN CSECT(I4820 ) LENGTH(2) 709 NOOO4E Te eagle HEX LOCATION (00002726) IN CSECT(I4820 ) LENGTH(2) 
2065 IODCB ADDRESS. HEX LOCATION(0000326A) IN CSECT(I4820 ) LENGTH(2) 712 NOOO47 ADDRESS. HEX LCCATION(0000272A) IN CSECT(I4820 ) LENGTH (2) 
2 1775 177 1781 1790 1793 1796 1799 1801 186 453 
1870 211 715 NOOO48 ADDKESS. HEX LOCATION(0000272E) IN CSECT(I4820 ) LENGTH(2) 
2066 IOMOD ADDRESS. HEX LOCATION (0000326C) IN CSECT(I4820 ) LFNGTH (2) 456 
1802 185 1865 718 NoO0049 ADDRESS. HEX LOCATION (00002732) IN CSECT(I4820 ) LENGTH(2) 
37 14820 CSECT. START(00002500) LENGTH(3892) ESDID(0) 45 
37 721 N00050 ADDRESS. HEX LCCATION(00002736) IN CSECT(I4820 ) LENGTH (2) 
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ATTRIBUTES AND REFERENCES 


LOCATICN(00002EDC) 
LOCATION (00002EEE) 
LOCATION (00002EFO) 
LOCATION (O0002EFE) 
LOCATION (00002EFC) 
LOCATION (00002F7¢ 


1468 Wa74  =1476 
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LOCATION (00003230) 
LOCATION (00003242) 
LCCATION (00003172) 
LOCATION (00003246) 
LCCATION (00003260) 
LOCATION (000031CE) 


X LCCATION (00003182) 
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LCCATION(000031EC) 
X VALUE(00000001) 
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ATTRIBUTES AND REFERENCES DECLARED 
462 716 
ADDRESS. HEX LCCATICN(0000273A) IN CSECT(I4820 ) LENGTH(2) 1407 
ADDRESS, HEX LOCATION (0000273E) IN CSECT(14820 ) LENGTH(2) 1412 
ADDRESS. HEX LOCATION (00002742) IN CSECT(I4820 ) LENGTH(2) 1413 
ADDRESS. HEX LCCATION (00002754) IN CSECT(I14820  ) LENGTH(2) W419 
ADDRESS. HEX LOCATION (00002758) IN CSECT(I4820  ) LENGTH (2) 1417 
ADDRESS. HEX LOCATION (0000276A) IN CSECT(I4820 ) LENGTH(2) 1489 
ADDRESS. HEX LOCATION(0000276E) IN CSECT(I4820 ) LENGTH(2) 1492 
ADDRESS» HEX LOCATION (00002772) IN CSECT(I4820 ) LENGTH(2) 1581 
ADDRESS; HEX LOCATION (00002776) IN CSECT(I4820 ) LENGTH(2) 1584 
ADDRESS, HEX LOCATION(0000277A) IN CSECT(I4820 ) LENGTH(2) 1673 
ADDRESS. HEX LOCATION (0000277E) IN CSECT(I4820 ) LENGTH(2) ed 
ADDRESS. HEX ECCATION(00002782) IN CSECT(I4820 ) LENGTH(2) 997 
ADDRESS. _HEX LOCATION (00002786) IN CSECT(I4820 ) LENGTH(2) 995 
ADDRESS. HEX LCCATION(0000278A) IN CSECT(I4820  ) LENGTH(2) ace 
ADDKESS. HEX LOCATION(0000278E) IN CSECT(I4820 ) LENGTH(2) ee 
507 773 é 
ABSOLUTE. HEX VALUE(00000202) 2047 
ADDRESS. HEX LOCATION (00002CEA) IN CSECT(I4820 ) LENGTH(2) 1eGi 
1210 1300 1379 1459. 1547 1971 2301 
ADDRESS. HEX LOCATION(OO002CEE) IN CSECT(I4820 ) LENGTH(2) ae 
2058 2106 é 
ADDRESS. HEX LOCATION (0000196E) I IN CSECT(I4820 ) LENGTH(1) ; 
535 549 55 57 69 737. 749 2058 
ADDRESS. HEX LOCATION (00001800) oN CSECT (14820 ), , LENGTH (1) e45 
71 72 73 74 75 77 78 g 193 
80 84 82 83 84 ge 86 87 88 a 
89 90 91 92 93 94 95 96 97 68 
98 99 100 101 102 103 #104 «©8105 8106 vee 
107, «108 =£109 110 111 #42©+112 2465 188 
ABSOLUTE. HEX VALUE (0Q00F1FQ) 
2165 1893 
ABSOLUTE. HEX VALUE (0000000C) a5 
ADDRESS. HEX LOCATION (0000309C) IN CSECT(I4820 ) LENGTH(2) 
a ABSOLUTE. HEX VALUE (00000017) 
>ABSOLUTE. HEX VALUE (00000016) 
jABSOLUTE. HEX VALUE (00000013) 
ADRESS. HEX LCCATION(0000304C) IN CSECT(I4820 ) LENGTH(2) 
ADDRESS. HEX _LOCATION(00002CF8) IN CSECT(I14820 ) LENGTH(2) 
1635 1782 1783 e173 | 
ADDRESS. HEX LOCATION (0090305c) IN CSECT(I4820 _) LENGTH(2) 
1222 1223 1224 134) 1243 1310 1311 1312 13413 
1469 1470 1471 14472 41477 #1478 #1479 #1484 1485 
1486 1553 1554 1555 1556 1572 1573 1775 
ABSOLUTE. HEX VALUE (0000000A) 
ohDBRESS. HEX LOCATION(000019C4) IN CSECT(I4820 ) LENGTH(1) 
ADDRESS. HEX LCCATION(00002D2C) IN CSECT(1I4820 ) LENGTH(2) 
2107. 2173 2174 
ADDRESS. HEX LCCATION (000018C2) IN CSECT(I482Q0 ) LENGTH(1) 
> ADDRESS. HEX LCCATION(000018BA) IN CSECT(I4820 ) LENGTH(1) 
ADDRESS. HEX LOCATION (0000189A) IN CSECT(I4820 ) LENGTH(1) 
1313. 1472 1555 1556 1564 
ADDRESS. HEX TCCATION (000D189C) IN CSECT(I4820 ) LENGTH(1) 
 RbDdRESS. HEX LOCATION(0000189E) IN CSECT(I4820 ) LENGTH(1) 
ADDRESS. HEX LOCATION(000018C8) IN CSECT(I4820 __) LENGTH(1) 
1214 1215 1216 1217 1238 1239 1257 °1258 1383 
1384 1385 1386 1387 14388 1395 1396 1397 1398 
ADDRESS. HEX LOCATION(00002D28) IN CSECT(I4820 ©) LENGTH(2) 
1208 1298 1377 1457 1545 2178 
ADDRESS. HEX LCCATION(00001818) IN CSECT(I4820  ) LENGTH(1) 
ADDRESS. HEX LOCATION (0000181A) IN CSECT(I4820 ) LENGTH(1) 
ADDRESS. HEX LOCATION(00002D38) IN CSECT(I4820 ) LENGTH (4) 
ADDRESS. HEX LCCAT1ON(00002E12) IN CSECT(I4820 ) LENGTH(4) 
ADDRESS. HEX LOCATION (00002E66) IN CSECT(I4820 ) LENGTH(4) 
ADDRESS. HEX LOCATLON(00002F02) IN CSECT(14820 ) LENGTH(4) 
ADDRESS. HEX LOCATION{00002F86) IN CSECT(I4820 ) LENGTH (4) 
jADDRE S. HEX LOCATION(OO0O02EQE) IN CSECT(14820 ) LENGTH(4) 
ADDRESS. HEX LOCATION(00002DAC) IN CSECT(I4¥820 ) LENGTH (6) 
ADDRESS. HEX LOCATEON(QO002DF8) IN CSECT(14820 ) LENGTH (6) 
{AQBRESS. HEX LOCATION (0Q002DB2) IN CSECT(I4820  ) LENGTH(6) 
ADDRESS. HEX LOCATION(0Q002DBC) IN CSECT(I14820 ) LENGTH(6) 
ADDRESS, HEX LOCATION (00002E08) IN CSECT(I4820 ) LENGTH(4) 
ADDRESS. HEX LOCATLON(OQO02ECC) IN CSECT(14620 ) LENGTH(6) 
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